﻿<!--#include File="CheckLogin.asp"-->
<!--#include File="../Config/Config.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%=SiteName%></title>
<link href="Style/Main.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="60%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td style="font-size:14px;font-weight:bolder;color:#224d7e;height:35px">欢迎登录网站管理系统！</td>
</tr>
<tr>
<td height="35"><strong>当前版本时间：<font color="#ff0000"><%=Version_data%></font>，最新版本时间：<font color="#ff0000"><% call GetVer()%></font>。</td>
</tr>
<tr>
<td height="250" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25">
<span style="height:25px;width:80px; line-height:25px; text-align:center;background:#e2e7eb; font-weight:bolder">主机参数</span></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="235" bgcolor="#e2e7eb" style="padding:5px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="border:solid 1px #cdd8df;height:100%; background:#f1f4f7">
<tr>
<td align="center">
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="25%">服务器名：</td>
    <td width="25%"><%=Request.ServerVariables("SERVER_NAME")%></td>
    <td width="20%">服务器端口：</td>
    <td width="30%"><%=Request.ServerVariables("SERVER_PORT")%></td>
  </tr>
  <tr>
    <td>服务器IP：</td>
    <td><%=Request.ServerVariables("LOCAL_ADDR")%></td>
    <td>服务器时间：</td>
    <td><%=now%></td>
  </tr>
  <tr>
    <td>IIS版本：</td>
    <td><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
    <td>脚本超时时间：</td>
    <td><%=Server.ScriptTimeout%> 秒</td>
  </tr>
  <tr>
    <td>Application变量：</td>
    <td><%Response.Write(Application.Contents.Count & "个")%></td>
    <td>Session变量：</td>
    <td><%Response.Write(Session.Contents.Count&"个 ")%></td>
  </tr>
  <tr>
    <td>所有服务器参数：</td>
    <td><%Response.Write(Request.ServerVariables.Count&"个")%></td>
    <td>服务器环境变量：</td>
    <td><%
On Error Resume Next
dim WshShell,WshSysEnv
Set WshShell = server.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment
if err then
Response.Write("服务器不支持WScript.Shell组件")
err.clear
else
Response.Write(WshSysEnv.count &"个 ")
if WshSysEnv.count>0 then Response.Write("[<a href=""?action=showwsh"">遍历环境变量</a>]") 
end if
%></td>
  </tr>
  <tr>
    <td>本文件实际路径：</td>
    <td colspan="3"><%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>
    </tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
</td>
<td width="10" valign="top" align="right">
<td width="38%" valign="top">
<iframe frameborder="0" scrolling="no" src="http://v.t.qq.com/show/show.php?n=cmsadmin&w=302&h=302&fl=1&l=4&o=13&c=0&si=e9bfe8a9ba432f11552e3583f803048e5689c7cc" width="302" height="330"></iframe>
</td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="20">&nbsp;</td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td style="background:#cdd8df;height:1px"></td>
</tr>
</table>
</body>
</html>
<%
conn.close
set conn = nothing

	Sub GetVer()
		Dim xml_path
		xml_path="http://www.zhujianqiang.com/version.xml"
		Dim objXML,objRootElement,strValue,strInetURL,strXML,item,ver 
			strInetURL =xml_path   
		Dim HttpReq 
		On Error Resume Next  
		Set HttpReq = server.CreateObject("Microsoft.XMLHTTP")   
			HttpReq.open "GET",xml_path,False   
			HttpReq.send   
			strXML = HttpReq.responseText   
		Set objXML = Server.CreateObject("Microsoft.XMLDOM")   
			objXML.validateonparse = True   
			objXML.async=False   
			objXML.loadXML(strXML)     
		Set objRootElement = objXML.documentElement   
			IF Not isObject(objRootElement) Then   
				ver ="文件载入出错！" 
			Else   
				ver=objRootElement.childnodes(0).text 
			End IF 
		IF Err Then
			Err.Clear
			ver="<font color='red'>获取最新版本失败!</font>"
		End IF 
	 	IF ver=Version_data Then 
			response.Write ver&"&nbsp;&nbsp;(当前已经是最新版本！)"
		Else
			response.Write Ver&vbcrlf&"<script language=""javascript"" type=""text/javascript"">"&vbcrlf&"<!--"&vbcrlf&"alert(""最新版本时间是："&Ver&"，请到官网下载最新版本！"");"&vbcrlf&"-->"&vbcrlf&"</script>"
		End IF
	End Sub
%>